/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / minix / gnuemacs.zoo / lisp / site-ini.elc

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 63 6f 6e | 73 74 20 65 6d 61 63 73 |.(defcon|st emacs|
|00000010| 2d 76 65 72 73 69 6f 6e | 20 22 31 38 2e 35 31 2e |-version| "18.51.|
|00000020| 31 30 22 20 22 5c 0a 56 | 65 72 73 69 6f 6e 20 6e |10" "\.V|ersion n|
|00000030| 75 6d 62 65 72 73 20 6f | 66 20 74 68 69 73 20 76 |umbers o|f this v|
|00000040| 65 72 73 69 6f 6e 20 6f | 66 20 45 6d 61 63 73 2e |ersion o|f Emacs.|
|00000050| 22 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 6d |")..(def|const em|
|00000060| 61 63 73 2d 62 75 69 6c | 64 2d 74 69 6d 65 20 28 |acs-buil|d-time (|
|00000070| 63 75 72 72 65 6e 74 2d | 74 69 6d 65 2d 73 74 72 |current-|time-str|
|00000080| 69 6e 67 29 20 22 5c 0a | 54 69 6d 65 20 61 74 20 |ing) "\.|Time at |
|00000090| 77 68 69 63 68 20 45 6d | 61 63 73 20 77 61 73 20 |which Em|acs was |
|000000a0| 64 75 6d 70 65 64 20 6f | 75 74 2e 22 29 0a 0a 28 |dumped o|ut.")..(|
|000000b0| 64 65 66 63 6f 6e 73 74 | 20 65 6d 61 63 73 2d 62 |defconst| emacs-b|
|000000c0| 75 69 6c 64 2d 73 79 73 | 74 65 6d 20 28 73 79 73 |uild-sys|tem (sys|
|000000d0| 74 65 6d 2d 6e 61 6d 65 | 29 29 0a 0a 28 64 65 66 |tem-name|))..(def|
|000000e0| 75 6e 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |un emacs|-version|
|000000f0| 20 6e 69 6c 20 22 5c 0a | 52 65 74 75 72 6e 20 73 | nil "\.|Return s|
|00000100| 74 72 69 6e 67 20 64 65 | 73 63 72 69 62 69 6e 67 |tring de|scribing|
|00000110| 20 74 68 65 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 | the ver|sion of |
|00000120| 45 6d 61 63 73 20 74 68 | 61 74 20 69 73 20 72 75 |Emacs th|at is ru|
|00000130| 6e 6e 69 6e 67 2e 22 20 | 28 69 6e 74 65 72 61 63 |nning." |(interac|
|00000140| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000150| 20 22 c4 88 74 83 0e 00 | c5 c6 c0 20 5c 22 82 23 | "..t...|... \".#|
|00000160| 00 c7 c8 08 09 c9 ca cb | 09 5c 22 4f 09 ca cc 09 |........|.\"O....|
|00000170| 5c 22 c4 4f 0a 0b 26 06 | 87 22 20 5b 65 6d 61 63 |\".O..&.|." [emac|
|00000180| 73 2d 76 65 72 73 69 6f | 6e 20 65 6d 61 63 73 2d |s-versio|n emacs-|
|00000190| 62 75 69 6c 64 2d 74 69 | 6d 65 20 65 6d 61 63 73 |build-ti|me emacs|
|000001a0| 2d 62 75 69 6c 64 2d 73 | 79 73 74 65 6d 20 73 79 |-build-s|ystem sy|
|000001b0| 73 74 65 6d 2d 74 79 70 | 65 20 6e 69 6c 20 6d 65 |stem-typ|e nil me|
|000001c0| 73 73 61 67 65 20 22 25 | 73 22 20 66 6f 72 6d 61 |ssage "%|s" forma|
|000001d0| 74 20 22 47 4e 55 20 45 | 6d 61 63 73 20 25 73 20 |t "GNU E|macs %s |
|000001e0| 6f 66 20 25 73 20 25 73 | 20 6f 6e 20 25 73 20 28 |of %s %s| on %s (|
|000001f0| 25 73 29 22 20 30 20 73 | 74 72 69 6e 67 2d 6d 61 |%s)" 0 s|tring-ma|
|00000200| 74 63 68 20 22 20 2a 5b | 30 2d 39 5d 2a 3a 22 20 |tch " *[|0-9]*:" |
|00000210| 22 5b 30 2d 39 5d 2a 24 | 22 5d 20 31 31 29 29 0a |"[0-9]*$|"] 11)).|
|00000220| 0a 28 73 65 74 71 20 73 | 63 72 6f 6c 6c 2d 73 74 |.(setq s|croll-st|
|00000230| 65 70 20 31 29 0a 0a 28 | 73 65 74 71 20 6d 65 74 |ep 1)..(|setq met|
|00000240| 61 2d 66 6c 61 67 20 74 | 29 0a 0a 28 64 65 66 75 |a-flag t|)..(defu|
|00000250| 6e 20 6d 79 2d 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |n my-nex|t-window|
|00000260| 20 6e 69 6c 20 22 5c 0a | 53 65 74 20 64 6f 74 20 | nil "\.|Set dot |
|00000270| 69 6e 74 6f 20 74 68 65 | 20 6e 65 78 74 20 77 69 |into the| next wi|
|00000280| 6e 64 6f 77 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ndow." (|interact|
|00000290| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000002a0| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 6f 74 |"....!."| [nil ot|
|000002b0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 31 5d 20 32 29 |her-wind|ow 1] 2)|
|000002c0| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 79 2d 70 72 65 |)..(defu|n my-pre|
|000002d0| 76 69 6f 75 73 2d 77 69 | 6e 64 6f 77 20 6e 69 6c |vious-wi|ndow nil|
|000002e0| 20 22 5c 0a 53 65 74 20 | 64 6f 74 20 69 6e 74 6f | "\.Set |dot into|
|000002f0| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 77 69 | the pre|vious wi|
|00000300| 6e 64 6f 77 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ndow." (|interact|
|00000310| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000320| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 6f 74 |"....!."| [nil ot|
|00000330| 68 65 72 2d 77 69 6e 64 | 6f 77 20 2d 31 5d 20 32 |her-wind|ow -1] 2|
|00000340| 29 29 0a 0a 28 64 65 66 | 75 6e 20 73 63 72 6f 6c |))..(def|un scrol|
|00000350| 6c 2d 6f 6e 65 2d 64 6f | 77 6e 20 6e 69 6c 20 28 |l-one-do|wn nil (|
|00000360| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000370| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 21 87 22 |te-code |"....!."|
|00000380| 20 5b 6e 69 6c 20 73 63 | 72 6f 6c 6c 2d 64 6f 77 | [nil sc|roll-dow|
|00000390| 6e 20 31 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |n 1] 2))|..(defun|
|000003a0| 20 73 63 72 6f 6c 6c 2d | 6f 6e 65 2d 75 70 20 6e | scroll-|one-up n|
|000003b0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|000003c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000003d0| c2 21 87 22 20 5b 6e 69 | 6c 20 73 63 72 6f 6c 6c |.!." [ni|l scroll|
|000003e0| 2d 75 70 20 31 5d 20 32 | 29 29 0a 0a 28 64 65 66 |-up 1] 2|))..(def|
|000003f0| 75 6e 20 68 6f 6d 65 2d | 6b 65 79 20 6e 69 6c 20 |un home-|key nil |
|00000400| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00000410| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c1 18 6e 83 |yte-code| "....n.|
|00000420| 1b 00 60 89 10 88 c2 20 | 62 88 08 60 55 85 18 00 |..`.... |b..`U...|
|00000430| c3 20 82 1d 00 c4 20 29 | 87 22 20 5b 69 20 6e 69 |. .... )|." [i ni|
|00000440| 6c 20 77 69 6e 64 6f 77 | 2d 73 74 61 72 74 20 62 |l window|-start b|
|00000450| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 62 75 66 66 |eginning|-of-buff|
|00000460| 65 72 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |er begin|ning-of-|
|00000470| 6c 69 6e 65 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |line] 4)|)..(defu|
|00000480| 6e 20 65 6e 64 2d 6b 65 | 79 20 6e 69 6c 20 28 69 |n end-ke|y nil (i|
|00000490| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|000004a0| 65 2d 63 6f 64 65 20 22 | c1 88 c1 18 6c 83 25 00 |e-code "|....l.%.|
|000004b0| 60 89 10 88 c2 20 62 88 | c3 c4 20 c5 5a 21 88 c6 |`.... b.|.. .Z!..|
|000004c0| 20 88 08 60 55 85 5c 22 | 00 c7 20 82 27 00 c6 20 | ..`U.\"|.. .'.. |
|000004d0| 29 87 22 20 5b 69 20 6e | 69 6c 20 77 69 6e 64 6f |)." [i n|il windo|
|000004e0| 77 2d 73 74 61 72 74 20 | 76 65 72 74 69 63 61 6c |w-start |vertical|
|000004f0| 2d 6d 6f 74 69 6f 6e 20 | 77 69 6e 64 6f 77 2d 68 |-motion |window-h|
|00000500| 65 69 67 68 74 20 32 20 | 65 6e 64 2d 6f 66 2d 6c |eight 2 |end-of-l|
|00000510| 69 6e 65 20 65 6e 64 2d | 6f 66 2d 62 75 66 66 65 |ine end-|of-buffe|
|00000520| 72 5d 20 37 29 29 0a 0a | 28 67 6c 6f 62 61 6c 2d |r] 7))..|(global-|
|00000530| 73 65 74 2d 6b 65 79 20 | 22 08 22 20 28 71 75 6f |set-key |"." (quo|
|00000540| 74 65 20 62 61 63 6b 77 | 61 72 64 2d 64 65 6c 65 |te backw|ard-dele|
|00000550| 74 65 2d 63 68 61 72 29 | 29 0a 0a 28 67 6c 6f 62 |te-char)|)..(glob|
|00000560| 61 6c 2d 73 65 74 2d 6b | 65 79 20 22 1b 23 62 22 |al-set-k|ey ".#b"|
|00000570| 20 28 71 75 6f 74 65 20 | 68 65 6c 70 2d 66 6f 72 | (quote |help-for|
|00000580| 2d 68 65 6c 70 29 29 0a | 0a 28 67 6c 6f 62 61 6c |-help)).|.(global|
|00000590| 2d 73 65 74 2d 6b 65 79 | 20 22 1b 23 61 22 20 28 |-set-key| ".#a" (|
|000005a0| 71 75 6f 74 65 20 61 64 | 76 65 72 74 69 73 65 64 |quote ad|vertised|
|000005b0| 2d 75 6e 64 6f 29 29 0a | 0a 28 67 6c 6f 62 61 6c |-undo)).|.(global|
|000005c0| 2d 73 65 74 2d 6b 65 79 | 20 22 1b 23 48 22 20 28 |-set-key| ".#H" (|
|000005d0| 71 75 6f 74 65 20 70 72 | 65 76 69 6f 75 73 2d 6c |quote pr|evious-l|
|000005e0| 69 6e 65 29 29 0a 0a 28 | 67 6c 6f 62 61 6c 2d 73 |ine))..(|global-s|
|000005f0| 65 74 2d 6b 65 79 20 22 | 1b 23 50 22 20 28 71 75 |et-key "|.#P" (qu|
|00000600| 6f 74 65 20 6e 65 78 74 | 2d 6c 69 6e 65 29 29 0a |ote next|-line)).|
|00000610| 0a 28 67 6c 6f 62 61 6c | 2d 73 65 74 2d 6b 65 79 |.(global|-set-key|
|00000620| 20 22 1b 23 4b 22 20 28 | 71 75 6f 74 65 20 62 61 | ".#K" (|quote ba|
|00000630| 63 6b 77 61 72 64 2d 63 | 68 61 72 29 29 0a 0a 28 |ckward-c|har))..(|
|00000640| 67 6c 6f 62 61 6c 2d 73 | 65 74 2d 6b 65 79 20 22 |global-s|et-key "|
|00000650| 1b 23 4d 22 20 28 71 75 | 6f 74 65 20 66 6f 72 77 |.#M" (qu|ote forw|
|00000660| 61 72 64 2d 63 68 61 72 | 29 29 0a 0a 28 67 6c 6f |ard-char|))..(glo|
|00000670| 62 61 6c 2d 73 65 74 2d | 6b 65 79 20 22 1b 23 52 |bal-set-|key ".#R|
|00000680| 22 20 28 71 75 6f 74 65 | 20 6e 65 77 6c 69 6e 65 |" (quote| newline|
|00000690| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 29 29 0a 0a 28 |-and-ind|ent))..(|
|000006a0| 67 6c 6f 62 61 6c 2d 73 | 65 74 2d 6b 65 79 20 22 |global-s|et-key "|
|000006b0| 1b 23 47 22 20 28 71 75 | 6f 74 65 20 65 78 65 63 |.#G" (qu|ote exec|
|000006c0| 75 74 65 2d 65 78 74 65 | 6e 64 65 64 2d 63 6f 6d |ute-exte|nded-com|
|000006d0| 6d 61 6e 64 29 29 0a 0a | 28 67 6c 6f 62 61 6c 2d |mand))..|(global-|
|000006e0| 73 65 74 2d 6b 65 79 20 | 22 1b 23 38 22 20 28 71 |set-key |".#8" (q|
|000006f0| 75 6f 74 65 20 73 63 72 | 6f 6c 6c 2d 64 6f 77 6e |uote scr|oll-down|
|00000700| 29 29 0a 0a 28 67 6c 6f | 62 61 6c 2d 73 65 74 2d |))..(glo|bal-set-|
|00000710| 6b 65 79 20 22 1b 23 32 | 22 20 28 71 75 6f 74 65 |key ".#2|" (quote|
|00000720| 20 73 63 72 6f 6c 6c 2d | 75 70 29 29 0a 0a 28 67 | scroll-|up))..(g|
|00000730| 6c 6f 62 61 6c 2d 73 65 | 74 2d 6b 65 79 20 22 1b |lobal-se|t-key ".|
|00000740| 23 31 22 20 28 71 75 6f | 74 65 20 73 65 74 2d 6d |#1" (quo|te set-m|
|00000750| 61 72 6b 2d 63 6f 6d 6d | 61 6e 64 29 29 0a 0a 28 |ark-comm|and))..(|
|00000760| 67 6c 6f 62 61 6c 2d 73 | 65 74 2d 6b 65 79 20 22 |global-s|et-key "|
|00000770| 1b 23 34 22 20 28 71 75 | 6f 74 65 20 63 6f 70 79 |.#4" (qu|ote copy|
|00000780| 2d 72 65 67 69 6f 6e 2d | 61 73 2d 6b 69 6c 6c 29 |-region-|as-kill)|
|00000790| 29 0a 0a 28 67 6c 6f 62 | 61 6c 2d 73 65 74 2d 6b |)..(glob|al-set-k|
|000007a0| 65 79 20 22 1b 23 33 22 | 20 28 71 75 6f 74 65 20 |ey ".#3"| (quote |
|000007b0| 6d 79 2d 6e 65 78 74 2d | 77 69 6e 64 6f 77 29 29 |my-next-|window))|
|000007c0| 0a 0a 28 67 6c 6f 62 61 | 6c 2d 73 65 74 2d 6b 65 |..(globa|l-set-ke|
|000007d0| 79 20 22 1b 23 36 22 20 | 28 71 75 6f 74 65 20 6d |y ".#6" |(quote m|
|000007e0| 79 2d 70 72 65 76 69 6f | 75 73 2d 77 69 6e 64 6f |y-previo|us-windo|
|000007f0| 77 29 29 0a 0a 28 67 6c | 6f 62 61 6c 2d 73 65 74 |w))..(gl|obal-set|
|00000800| 2d 6b 65 79 20 22 1b 23 | 37 22 20 28 71 75 6f 74 |-key ".#|7" (quot|
|00000810| 65 20 65 6e 6c 61 72 67 | 65 2d 77 69 6e 64 6f 77 |e enlarg|e-window|
|00000820| 29 29 0a 0a 28 67 6c 6f | 62 61 6c 2d 73 65 74 2d |))..(glo|bal-set-|
|00000830| 6b 65 79 20 22 1b 23 39 | 22 20 28 71 75 6f 74 65 |key ".#9|" (quote|
|00000840| 20 73 68 72 69 6e 6b 2d | 77 69 6e 64 6f 77 29 29 | shrink-|window))|
|00000850| 0a 0a 28 67 6c 6f 62 61 | 6c 2d 73 65 74 2d 6b 65 |..(globa|l-set-ke|
|00000860| 79 20 22 1b 23 35 22 20 | 28 71 75 6f 74 65 20 64 |y ".#5" |(quote d|
|00000870| 65 6c 65 74 65 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |elete-ot|her-wind|
|00000880| 6f 77 73 29 29 0a 0a 28 | 67 6c 6f 62 61 6c 2d 73 |ows))..(|global-s|
|00000890| 65 74 2d 6b 65 79 20 22 | 1b 23 2a 22 20 28 71 75 |et-key "|.#*" (qu|
|000008a0| 6f 74 65 20 64 65 6c 65 | 74 65 2d 77 69 6e 64 6f |ote dele|te-windo|
|000008b0| 77 29 29 0a 0a 28 67 6c | 6f 62 61 6c 2d 73 65 74 |w))..(gl|obal-set|
|000008c0| 2d 6b 65 79 20 22 1b 23 | 2f 22 20 28 71 75 6f 74 |-key ".#|/" (quot|
|000008d0| 65 20 73 70 6c 69 74 2d | 77 69 6e 64 6f 77 2d 76 |e split-|window-v|
|000008e0| 65 72 74 69 63 61 6c 6c | 79 29 29 0a 0a 28 67 6c |erticall|y))..(gl|
|000008f0| 6f 62 61 6c 2d 73 65 74 | 2d 6b 65 79 20 22 1b 23 |obal-set|-key ".#|
|00000900| 28 22 20 28 71 75 6f 74 | 65 20 73 63 72 6f 6c 6c |(" (quot|e scroll|
|00000910| 2d 6f 6e 65 2d 75 70 29 | 29 0a 0a 28 67 6c 6f 62 |-one-up)|)..(glob|
|00000920| 61 6c 2d 73 65 74 2d 6b | 65 79 20 22 1b 23 29 22 |al-set-k|ey ".#)"|
|00000930| 20 28 71 75 6f 74 65 20 | 73 63 72 6f 6c 6c 2d 6f | (quote |scroll-o|
|00000940| 6e 65 2d 64 6f 77 6e 29 | 29 0a 0a 28 67 6c 6f 62 |ne-down)|)..(glob|
|00000950| 61 6c 2d 73 65 74 2d 6b | 65 79 20 22 1b 23 30 22 |al-set-k|ey ".#0"|
|00000960| 20 28 71 75 6f 74 65 20 | 68 6f 6d 65 2d 6b 65 79 | (quote |home-key|
|00000970| 29 29 0a 0a 28 67 6c 6f | 62 61 6c 2d 73 65 74 2d |))..(glo|bal-set-|
|00000980| 6b 65 79 20 22 1b 23 2e | 22 20 28 71 75 6f 74 65 |key ".#.|" (quote|
|00000990| 20 65 6e 64 2d 6b 65 79 | 29 29 0a 0a 28 67 6c 6f | end-key|))..(glo|
|000009a0| 62 61 6c 2d 73 65 74 2d | 6b 65 79 20 22 1b 23 2d |bal-set-|key ".#-|
|000009b0| 22 20 28 71 75 6f 74 65 | 20 62 61 63 6b 77 61 72 |" (quote| backwar|
|000009c0| 64 2d 73 65 78 70 29 29 | 0a 0a 28 67 6c 6f 62 61 |d-sexp))|..(globa|
|000009d0| 6c 2d 73 65 74 2d 6b 65 | 79 20 22 1b 23 2b 22 20 |l-set-ke|y ".#+" |
|000009e0| 28 71 75 6f 74 65 20 66 | 6f 72 77 61 72 64 2d 73 |(quote f|orward-s|
|000009f0| 65 78 70 29 29 0a 0a 28 | 64 65 66 75 6e 20 6d 79 |exp))..(|defun my|
|00000a00| 2d 61 66 6d 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |-afm nil| (byte-c|
|00000a10| 6f 64 65 20 22 c0 20 88 | c1 c2 21 87 22 20 5b 74 |ode ". .|..!." [t|
|00000a20| 65 78 74 2d 6d 6f 64 65 | 20 61 75 74 6f 2d 66 69 |ext-mode| auto-fi|
|00000a30| 6c 6c 2d 6d 6f 64 65 20 | 31 5d 20 33 29 29 0a 0a |ll-mode |1] 3))..|
|00000a40| 28 73 65 74 71 20 61 75 | 74 6f 2d 6d 6f 64 65 2d |(setq au|to-mode-|
|00000a50| 61 6c 69 73 74 20 28 63 | 6f 6e 73 20 28 71 75 6f |alist (c|ons (quo|
|00000a60| 74 65 20 28 22 5c 5c 2e | 74 22 20 2e 20 6d 79 2d |te ("\\.|t" . my-|
|00000a70| 61 66 6d 29 29 20 61 75 | 74 6f 2d 6d 6f 64 65 2d |afm)) au|to-mode-|
|00000a80| 61 6c 69 73 74 29 29 0a | 0a 28 70 75 74 20 28 71 |alist)).|.(put (q|
|00000a90| 75 6f 74 65 20 65 76 61 | 6c 2d 65 78 70 72 65 73 |uote eva|l-expres|
|00000aa0| 73 69 6f 6e 29 20 28 71 | 75 6f 74 65 20 64 69 73 |sion) (q|uote dis|
|00000ab0| 61 62 6c 65 64 29 20 6e | 69 6c 29 0a 0a 28 70 75 |abled) n|il)..(pu|
|00000ac0| 74 20 28 71 75 6f 74 65 | 20 6e 61 72 72 6f 77 2d |t (quote| narrow-|
|00000ad0| 74 6f 2d 70 61 67 65 29 | 20 28 71 75 6f 74 65 20 |to-page)| (quote |
|00000ae0| 64 69 73 61 62 6c 65 64 | 29 20 6e 69 6c 29 0a 0a |disabled|) nil)..|
|00000af0| 28 70 75 74 20 28 71 75 | 6f 74 65 20 6e 61 72 72 |(put (qu|ote narr|
|00000b00| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 29 20 28 71 |ow-to-re|gion) (q|
|00000b10| 75 6f 74 65 20 64 69 73 | 61 62 6c 65 64 29 20 6e |uote dis|abled) n|
|00000b20| 69 6c 29 0a 0a 28 64 65 | 66 75 6e 20 6d 79 2d 63 |il)..(de|fun my-c|
|00000b30| 68 61 6e 67 65 2d 63 61 | 73 65 2d 77 6f 72 64 20 |hange-ca|se-word |
|00000b40| 28 70 72 6f 63 29 20 28 | 62 79 74 65 2d 63 6f 64 |(proc) (|byte-cod|
|00000b50| 65 20 22 60 18 6e 3f 85 | 0a 00 c2 c3 21 88 c4 c5 |e "`.n?.|....!...|
|00000b60| 21 88 c4 c3 21 88 c6 09 | c5 5c 22 88 08 62 29 87 |!...!...|.\"..b).|
|00000b70| 22 20 5b 70 6f 73 20 70 | 72 6f 63 20 66 6f 72 77 |" [pos p|roc forw|
|00000b80| 61 72 64 2d 63 68 61 72 | 20 2d 31 20 66 6f 72 77 |ard-char| -1 forw|
|00000b90| 61 72 64 2d 77 6f 72 64 | 20 31 20 66 75 6e 63 61 |ard-word| 1 funca|
|00000ba0| 6c 6c 5d 20 36 29 29 0a | 0a 28 64 65 66 75 6e 20 |ll] 6)).|.(defun |
|00000bb0| 6d 79 2d 64 6f 77 6e 63 | 61 73 65 2d 77 6f 72 64 |my-downc|ase-word|
|00000bc0| 20 6e 69 6c 20 28 69 6e | 74 65 72 61 63 74 69 76 | nil (in|teractiv|
|00000bd0| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |e) (byte|-code ".|
|00000be0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 6d 79 2d 63 |...!." [|nil my-c|
|00000bf0| 68 61 6e 67 65 2d 63 61 | 73 65 2d 77 6f 72 64 20 |hange-ca|se-word |
|00000c00| 64 6f 77 6e 63 61 73 65 | 2d 77 6f 72 64 5d 20 32 |downcase|-word] 2|
|00000c10| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6d 79 2d 75 70 |))..(def|un my-up|
|00000c20| 63 61 73 65 2d 77 6f 72 | 64 20 6e 69 6c 20 28 69 |case-wor|d nil (i|
|00000c30| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000c40| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000c50| 5b 6e 69 6c 20 6d 79 2d | 63 68 61 6e 67 65 2d 63 |[nil my-|change-c|
|00000c60| 61 73 65 2d 77 6f 72 64 | 20 75 70 63 61 73 65 2d |ase-word| upcase-|
|00000c70| 77 6f 72 64 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 |word] 2)|)..(defu|
|00000c80| 6e 20 6d 79 2d 63 61 70 | 69 74 61 6c 69 7a 65 2d |n my-cap|italize-|
|00000c90| 77 6f 72 64 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |word nil| (intera|
|00000ca0| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000cb0| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|00000cc0| 6d 79 2d 63 68 61 6e 67 | 65 2d 63 61 73 65 2d 77 |my-chang|e-case-w|
|00000cd0| 6f 72 64 20 63 61 70 69 | 74 61 6c 69 7a 65 2d 77 |ord capi|talize-w|
|00000ce0| 6f 72 64 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |ord] 2))|..(defun|
|00000cf0| 20 6d 79 2d 74 72 61 6e | 73 70 6f 73 65 20 6e 69 | my-tran|spose ni|
|00000d00| 6c 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |l (inter|active) |
|00000d10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 6e 3f |(byte-co|de "..n?|
|00000d20| 85 09 00 6c 3f 85 0f 00 | c1 c2 21 88 6e 85 17 00 |...l?...|..!.n...|
|00000d30| c1 c3 21 88 c4 c0 21 87 | 22 20 5b 6e 69 6c 20 66 |..!...!.|" [nil f|
|00000d40| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 2d 31 20 31 |orward-c|har -1 1|
|00000d50| 20 74 72 61 6e 73 70 6f | 73 65 2d 63 68 61 72 73 | transpo|se-chars|
|00000d60| 5d 20 34 29 29 0a 0a 28 | 64 65 66 69 6e 65 2d 6b |] 4))..(|define-k|
|00000d70| 65 79 20 65 73 63 2d 6d | 61 70 20 22 75 22 20 28 |ey esc-m|ap "u" (|
|00000d80| 71 75 6f 74 65 20 6d 79 | 2d 75 70 63 61 73 65 2d |quote my|-upcase-|
|00000d90| 77 6f 72 64 29 29 0a 0a | 28 64 65 66 69 6e 65 2d |word))..|(define-|
|00000da0| 6b 65 79 20 65 73 63 2d | 6d 61 70 20 22 6c 22 20 |key esc-|map "l" |
|00000db0| 28 71 75 6f 74 65 20 6d | 79 2d 64 6f 77 6e 63 61 |(quote m|y-downca|
|00000dc0| 73 65 2d 77 6f 72 64 29 | 29 0a 0a 28 64 65 66 69 |se-word)|)..(defi|
|00000dd0| 6e 65 2d 6b 65 79 20 65 | 73 63 2d 6d 61 70 20 22 |ne-key e|sc-map "|
|00000de0| 63 22 20 28 71 75 6f 74 | 65 20 6d 79 2d 63 61 70 |c" (quot|e my-cap|
|00000df0| 69 74 61 6c 69 7a 65 2d | 77 6f 72 64 29 29 0a 0a |italize-|word))..|
|00000e00| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 67 6c 6f 62 |(define-|key glob|
|00000e10| 61 6c 2d 6d 61 70 20 22 | 14 22 20 28 71 75 6f 74 |al-map "|." (quot|
|00000e20| 65 20 6d 79 2d 74 72 61 | 6e 73 70 6f 73 65 29 29 |e my-tra|nspose))|
|00000e30| 0a 0a 28 64 65 66 69 6e | 65 2d 6b 65 79 20 65 73 |..(defin|e-key es|
|00000e40| 63 2d 6d 61 70 20 22 73 | 22 20 28 71 75 6f 74 65 |c-map "s|" (quote|
|00000e50| 20 74 61 67 73 2d 73 65 | 61 72 63 68 29 29 0a 0a | tags-se|arch))..|
|00000e60| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 63 74 6c 2d |(define-|key ctl-|
|00000e70| 78 2d 6d 61 70 20 22 02 | 22 20 28 71 75 6f 74 65 |x-map ".|" (quote|
|00000e80| 20 62 75 66 66 65 72 2d | 6d 65 6e 75 29 29 0a 0a | buffer-|menu))..|
|00000e90| 28 64 65 66 75 6e 20 6d | 79 2d 63 72 2d 77 65 67 |(defun m|y-cr-weg|
|00000ea0| 20 6e 69 6c 20 22 5c 0a | 73 6f 6c 6c 20 5e 4d 27 | nil "\.|soll ^M'|
|00000eb0| 73 20 6b 69 6c 6c 65 6e | 22 20 28 69 6e 74 65 72 |s killen|" (inter|
|00000ec0| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00000ed0| 64 65 20 22 c1 88 c2 c3 | 21 88 60 18 65 62 88 c4 |de "....|!.`.eb..|
|00000ee0| c5 c6 5c 22 88 08 62 88 | c2 c7 21 29 87 22 20 5b |..\"..b.|..!)." [|
|00000ef0| 69 20 6e 69 6c 20 6d 65 | 73 73 61 67 65 20 22 52 |i nil me|ssage "R|
|00000f00| 65 6d 6f 76 69 6e 67 20 | 5e 4d 20 2e 2e 2e 22 20 |emoving |^M ..." |
|00000f10| 72 65 70 6c 61 63 65 2d | 72 65 67 65 78 70 20 22 |replace-|regexp "|
|00000f20| 0d 24 22 20 22 22 20 22 | 52 65 6d 6f 76 69 6e 67 |.$" "" "|Removing|
|00000f30| 20 5e 4d 20 2e 2e 2e 20 | 44 6f 6e 65 2e 22 5d 20 | ^M ... |Done."] |
|00000f40| 34 29 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |4))..(de|fine-key|
|00000f50| 20 65 73 63 2d 6d 61 70 | 20 22 23 44 22 20 28 71 | esc-map| "#D" (q|
|00000f60| 75 6f 74 65 20 6d 79 2d | 63 72 2d 77 65 67 29 29 |uote my-|cr-weg))|
|00000f70| 0a 0a 28 64 65 66 69 6e | 65 2d 6b 65 79 20 65 6d |..(defin|e-key em|
|00000f80| 61 63 73 2d 6c 69 73 70 | 2d 6d 6f 64 65 2d 6d 61 |acs-lisp|-mode-ma|
|00000f90| 70 20 22 28 22 20 28 71 | 75 6f 74 65 20 65 78 70 |p "(" (q|uote exp|
|00000fa0| 61 6e 64 2d 66 75 6e 63 | 74 69 6f 6e 29 29 0a 0a |and-func|tion))..|
|00000fb0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 65 6d 61 63 |(define-|key emac|
|00000fc0| 73 2d 6c 69 73 70 2d 6d | 6f 64 65 2d 6d 61 70 20 |s-lisp-m|ode-map |
|00000fd0| 22 1b 1a 22 20 28 71 75 | 6f 74 65 20 65 78 70 61 |".." (qu|ote expa|
|00000fe0| 6e 64 2d 66 75 6e 63 74 | 69 6f 6e 29 29 0a 0a 28 |nd-funct|ion))..(|
|00000ff0| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 6d 61 63 73 |define-k|ey emacs|
|00001000| 2d 6c 69 73 70 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |-lisp-mo|de-map "|
|00001010| 1b 19 22 20 28 71 75 6f | 74 65 20 65 78 70 61 6e |.." (quo|te expan|
|00001020| 64 2d 76 61 72 69 61 62 | 6c 65 29 29 0a 0a 28 64 |d-variab|le))..(d|
|00001030| 65 66 69 6e 65 2d 6b 65 | 79 20 65 6d 61 63 73 2d |efine-ke|y emacs-|
|00001040| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 29 |lisp-mod|e-map ")|
|00001050| 22 20 28 71 75 6f 74 65 | 20 6b 69 6c 6c 2d 62 6c |" (quote| kill-bl|
|00001060| 61 6e 6b 73 2d 62 65 66 | 6f 72 65 2d 63 6c 6f 73 |anks-bef|ore-clos|
|00001070| 65 2d 70 61 72 29 29 0a | 0a 28 64 65 66 75 6e 20 |e-par)).|.(defun |
|00001080| 65 78 70 61 6e 64 2d 66 | 75 6e 63 74 69 6f 6e 20 |expand-f|unction |
|00001090| 28 66 75 6e 29 20 22 5c | 0a 45 78 70 61 6e 64 20 |(fun) "\|.Expand |
|000010a0| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 6e 61 6d |the func|tion nam|
|000010b0| 65 2c 20 77 72 69 74 65 | 20 69 74 20 69 6e 74 6f |e, write| it into|
|000010c0| 20 74 68 65 20 62 75 66 | 66 65 72 20 61 6e 64 20 | the buf|fer and |
|000010d0| 67 69 76 65 20 68 65 6c | 70 2d 69 6e 66 6f 73 2e |give hel|p-infos.|
|000010e0| 0a 49 6e 20 65 6d 61 63 | 73 2d 6c 69 73 70 2d 6d |.In emac|s-lisp-m|
|000010f0| 6f 64 65 20 74 68 69 73 | 20 73 68 6f 75 6c 64 20 |ode this| should |
|00001100| 62 65 20 62 6f 75 6e 64 | 20 74 6f 20 5c 22 28 5c |be bound| to \"(\|
|00001110| 22 2e 0a 57 72 69 74 74 | 65 6e 20 62 79 20 62 65 |"..Writt|en by be|
|00001120| 72 74 40 73 62 73 76 61 | 78 2c 20 32 30 2e 30 32 |rt@sbsva|x, 20.02|
|00001130| 2e 31 39 38 37 22 20 28 | 69 6e 74 65 72 61 63 74 |.1987" (|interact|
|00001140| 69 76 65 20 22 61 28 22 | 29 20 28 62 79 74 65 2d |ive "a("|) (byte-|
|00001150| 63 6f 64 65 20 22 c1 88 | c2 c3 c4 08 21 c5 51 21 |code "..|....!.Q!|
|00001160| 87 22 20 5b 66 75 6e 20 | 6e 69 6c 20 69 6e 73 65 |." [fun |nil inse|
|00001170| 72 74 2d 73 74 72 69 6e | 67 20 22 28 22 20 70 72 |rt-strin|g "(" pr|
|00001180| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 22 20 |in1-to-s|tring " |
|00001190| 22 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 65 |"] 5))..|(defun e|
|000011a0| 78 70 61 6e 64 2d 76 61 | 72 69 61 62 6c 65 20 28 |xpand-va|riable (|
|000011b0| 66 75 6e 29 20 22 5c 0a | 45 78 70 61 6e 64 20 74 |fun) "\.|Expand t|
|000011c0| 68 65 20 76 61 72 69 61 | 62 6c 65 73 20 6e 61 6d |he varia|bles nam|
|000011d0| 65 2c 20 77 72 69 74 65 | 20 69 74 20 69 6e 74 6f |e, write| it into|
|000011e0| 20 74 68 65 20 62 75 66 | 66 65 72 20 61 6e 64 20 | the buf|fer and |
|000011f0| 67 69 76 65 20 68 65 6c | 70 2d 69 6e 66 6f 73 2e |give hel|p-infos.|
|00001200| 0a 57 72 69 74 74 65 6e | 20 62 79 20 62 65 72 74 |.Written| by bert|
|00001210| 40 73 62 73 76 61 78 2c | 20 32 30 2e 30 32 2e 31 |@sbsvax,| 20.02.1|
|00001220| 39 38 37 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |987" (in|teractiv|
|00001230| 65 20 22 53 65 78 70 61 | 6e 64 20 65 6c 2d 76 61 |e "Sexpa|nd el-va|
|00001240| 72 69 61 62 6c 65 3a 20 | 22 29 20 28 62 79 74 65 |riable: |") (byte|
|00001250| 2d 63 6f 64 65 20 22 c1 | 88 c2 c3 08 21 c4 50 21 |-code ".|....!.P!|
|00001260| 87 22 20 5b 66 75 6e 20 | 6e 69 6c 20 69 6e 73 65 |." [fun |nil inse|
|00001270| 72 74 2d 73 74 72 69 6e | 67 20 70 72 69 6e 31 2d |rt-strin|g prin1-|
|00001280| 74 6f 2d 73 74 72 69 6e | 67 20 22 20 22 5d 20 34 |to-strin|g " "] 4|
|00001290| 29 29 0a 0a 28 64 65 66 | 75 6e 20 6b 69 6c 6c 2d |))..(def|un kill-|
|000012a0| 62 6c 61 6e 6b 73 2d 62 | 65 66 6f 72 65 2d 63 6c |blanks-b|efore-cl|
|000012b0| 6f 73 65 2d 70 61 72 20 | 6e 69 6c 20 22 5c 0a 49 |ose-par |nil "\.I|
|000012c0| 6e 73 65 72 74 73 20 61 | 20 5c 22 29 5c 22 20 61 |nserts a| \")\" a|
|000012d0| 6e 64 20 64 65 6c 65 74 | 65 73 20 74 68 65 20 77 |nd delet|es the w|
|000012e0| 68 69 74 65 73 70 61 63 | 65 20 62 65 66 6f 72 65 |hitespac|e before|
|000012f0| 2e 0a 49 6e 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d |..In ema|cs-lisp-|
|00001300| 6d 6f 64 65 20 74 68 69 | 73 20 73 68 6f 75 6c 64 |mode thi|s should|
|00001310| 20 62 65 20 62 6f 75 6e | 64 20 74 6f 20 5c 22 29 | be boun|d to \")|
|00001320| 5c 22 2e 0a 57 72 69 74 | 74 65 6e 20 62 79 20 62 |\"..Writ|ten by b|
|00001330| 65 72 74 40 73 62 73 76 | 61 78 2c 20 33 2e 33 2e |ert@sbsv|ax, 3.3.|
|00001340| 31 39 38 37 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |1987." (|interact|
|00001350| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00001360| 22 c0 88 c1 c2 21 88 c3 | c2 21 88 c4 20 88 c5 c2 |"....!..|.!.. ...|
|00001370| 21 87 22 20 5b 6e 69 6c | 20 73 65 6c 66 2d 69 6e |!." [nil| self-in|
|00001380| 73 65 72 74 2d 63 6f 6d | 6d 61 6e 64 20 31 20 62 |sert-com|mand 1 b|
|00001390| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 66 69 78 |ackward-|char fix|
|000013a0| 75 70 2d 77 68 69 74 65 | 73 70 61 63 65 20 66 6f |up-white|space fo|
|000013b0| 72 77 61 72 64 2d 63 68 | 61 72 5d 20 35 29 29 0a |rward-ch|ar] 5)).|
|000013c0| 0a 28 64 65 66 76 61 72 | 20 64 6f 63 2d 72 65 61 |.(defvar| doc-rea|
|000013d0| 64 20 6e 69 6c 20 22 5c | 0a 2a 49 73 74 20 64 6f |d nil "\|.*Ist do|
|000013e0| 63 20 73 63 68 6f 6e 20 | 67 65 6c 65 73 65 6e 3f |c schon |gelesen?|
|000013f0| 22 29 0a 0a 28 64 65 66 | 75 6e 20 6d 79 2d 64 6f |")..(def|un my-do|
|00001400| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 28 69 74 65 |cumentat|ion (ite|
|00001410| 6d 20 26 6f 70 74 69 6f | 6e 61 6c 20 69 73 2d 76 |m &optio|nal is-v|
|00001420| 61 72 69 61 62 6c 65 29 | 20 22 5c 0a 54 68 69 73 |ariable)| "\.This|
|00001430| 20 69 73 20 62 65 72 74 | 27 73 20 64 6f 63 75 6d | is bert|'s docum|
|00001440| 65 6e 74 61 74 69 6f 6e | 2d 66 6e 21 20 6c 6f 6f |entation|-fn! loo|
|00001450| 6b 73 20 61 6c 77 61 79 | 73 20 66 6f 72 20 76 61 |ks alway|s for va|
|00001460| 72 69 61 62 6c 65 2d 64 | 6f 63 75 6d 65 6e 74 61 |riable-d|ocumenta|
|00001470| 74 69 6f 6e 20 70 72 6f | 70 65 72 74 79 22 20 28 |tion pro|perty" (|
|00001480| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 16 00 09 |byte-cod|e ".....|
|00001490| 3f 85 0c 00 c4 0a 21 86 | 13 00 c5 0a c6 5c 22 82 |?.....!.|.....\".|
|000014a0| 2a 00 c3 89 10 88 c7 c8 | 21 88 c9 ca 21 88 c7 cb |*.......|!...!...|
|000014b0| 21 88 cc 0a 09 5c 22 87 | 22 20 5b 64 6f 63 2d 72 |!....\".|" [doc-r|
|000014c0| 65 61 64 20 69 73 2d 76 | 61 72 69 61 62 6c 65 20 |ead is-v|ariable |
|000014d0| 69 74 65 6d 20 74 20 64 | 6f 63 75 6d 65 6e 74 61 |item t d|ocumenta|
|000014e0| 74 69 6f 6e 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |tion doc|umentati|
|000014f0| 6f 6e 2d 70 72 6f 70 65 | 72 74 79 20 76 61 72 69 |on-prope|rty vari|
|00001500| 61 62 6c 65 2d 64 6f 63 | 75 6d 65 6e 74 61 74 69 |able-doc|umentati|
|00001510| 6f 6e 20 6d 65 73 73 61 | 67 65 20 22 52 65 61 64 |on messa|ge "Read|
|00001520| 69 6e 67 20 44 4f 43 20 | 2e 2e 2e 22 20 53 6e 61 |ing DOC |..." Sna|
|00001530| 72 66 2d 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |rf-docum|entation|
|00001540| 20 22 44 4f 43 22 20 22 | 52 65 61 64 69 6e 67 20 | "DOC" "|Reading |
|00001550| 44 4f 43 20 2e 2e 2e 20 | 44 6f 6e 65 2e 22 20 6d |DOC ... |Done." m|
|00001560| 79 2d 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 5d |y-docume|ntation]|
|00001570| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 65 73 | 8))..(d|efun des|
|00001580| 63 72 69 62 65 2d 66 75 | 6e 63 74 69 6f 6e 20 28 |cribe-fu|nction (|
|00001590| 66 75 6e 63 74 69 6f 6e | 29 20 28 69 6e 74 65 72 |function|) (inter|
|000015a0| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|000015b0| 65 20 22 c6 20 c2 c7 c7 | 1c 1b 19 18 c8 08 83 15 |e ". ...|........|
|000015c0| 00 c9 ca 08 5c 22 82 16 | 00 cb 0d cc c2 24 89 14 |....\"..|.....$..|
|000015d0| 88 cd 0c ce 5c 22 83 28 | 00 08 82 2b 00 cf 0c 21 |....\".(|...+...!|
|000015e0| 43 2c 87 22 20 5b 66 6e | 20 65 6e 61 62 6c 65 2d |C,." [fn| enable-|
|000015f0| 72 65 63 75 72 73 69 76 | 65 2d 6d 69 6e 69 62 75 |recursiv|e-minibu|
|00001600| 66 66 65 72 73 20 74 20 | 64 6f 63 75 20 76 61 6c |ffers t |docu val|
|00001610| 20 6f 62 61 72 72 61 79 | 20 66 75 6e 63 74 69 6f | obarray| functio|
|00001620| 6e 2d 63 61 6c 6c 65 64 | 2d 61 74 2d 70 6f 69 6e |n-called|-at-poin|
|00001630| 74 20 6e 69 6c 20 63 6f | 6d 70 6c 65 74 69 6e 67 |t nil co|mpleting|
|00001640| 2d 72 65 61 64 20 66 6f | 72 6d 61 74 20 22 44 65 |-read fo|rmat "De|
|00001650| 73 63 72 69 62 65 20 66 | 75 6e 63 74 69 6f 6e 20 |scribe f|unction |
|00001660| 28 64 65 66 61 75 6c 74 | 20 25 73 29 3a 20 22 20 |(default| %s): " |
|00001670| 22 44 65 73 63 72 69 62 | 65 20 66 75 6e 63 74 69 |"Describ|e functi|
|00001680| 6f 6e 3a 20 22 20 66 62 | 6f 75 6e 64 70 20 65 71 |on: " fb|oundp eq|
|00001690| 75 61 6c 20 22 22 20 69 | 6e 74 65 72 6e 5d 20 37 |ual "" i|ntern] 7|
|000016a0| 29 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c7 |)) (byte|-code ".|
|000016b0| 88 c8 90 c9 0e 06 21 88 | ca cb 21 88 cc 0e 06 21 |......!.|..!....!|
|000016c0| 89 13 83 1c 00 ca 0b 21 | 82 1f 00 ca cd 21 88 ce |.......!|.....!..|
|000016d0| 20 91 87 22 20 5b 66 6e | 20 65 6e 61 62 6c 65 2d | .." [fn| enable-|
|000016e0| 72 65 63 75 72 73 69 76 | 65 2d 6d 69 6e 69 62 75 |recursiv|e-minibu|
|000016f0| 66 66 65 72 73 20 74 20 | 64 6f 63 75 20 76 61 6c |ffers t |docu val|
|00001700| 20 6f 62 61 72 72 61 79 | 20 66 75 6e 63 74 69 6f | obarray| functio|
|00001710| 6e 20 6e 69 6c 20 22 2a | 48 65 6c 70 2a 22 20 70 |n nil "*|Help*" p|
|00001720| 72 69 6e 31 20 70 72 69 | 6e 63 20 22 3a 0a 22 20 |rin1 pri|nc ":." |
|00001730| 6d 79 2d 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |my-docum|entation|
|00001740| 20 22 6e 6f 74 20 64 6f | 63 75 6d 65 6e 74 65 64 | "not do|cumented|
|00001750| 22 20 70 72 69 6e 74 2d | 68 65 6c 70 2d 72 65 74 |" print-|help-ret|
|00001760| 75 72 6e 2d 6d 65 73 73 | 61 67 65 5d 20 38 29 29 |urn-mess|age] 8))|
|00001770| 0a 0a 28 64 65 66 75 6e | 20 64 65 73 63 72 69 62 |..(defun| describ|
|00001780| 65 2d 6d 6f 64 65 20 6e | 69 6c 20 28 69 6e 74 65 |e-mode n|il (inte|
|00001790| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|000017a0| 6f 64 65 20 22 c2 88 c3 | 90 c4 08 21 88 c4 c5 21 |ode "...|...!...!|
|000017b0| 88 c4 c6 09 21 21 88 c7 | 20 91 87 22 20 5b 6d 6f |....!!..| .." [mo|
|000017c0| 64 65 2d 6e 61 6d 65 20 | 6d 61 6a 6f 72 2d 6d 6f |de-name |major-mo|
|000017d0| 64 65 20 6e 69 6c 20 22 | 2a 48 65 6c 70 2a 22 20 |de nil "|*Help*" |
|000017e0| 70 72 69 6e 63 20 22 20 | 4d 6f 64 65 3a 0a 22 20 |princ " |Mode:." |
|000017f0| 6d 79 2d 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |my-docum|entation|
|00001800| 20 70 72 69 6e 74 2d 68 | 65 6c 70 2d 72 65 74 75 | print-h|elp-retu|
|00001810| 72 6e 2d 6d 65 73 73 61 | 67 65 5d 20 37 29 29 0a |rn-messa|ge] 7)).|
|00001820| 0a 28 64 65 66 75 6e 20 | 68 65 6c 70 2d 66 6f 72 |.(defun |help-for|
|00001830| 2d 68 65 6c 70 20 6e 69 | 6c 20 28 69 6e 74 65 72 |-help ni|l (inter|
|00001840| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00001850| 64 65 20 22 c1 88 c6 c7 | 21 88 c8 c1 21 18 c9 08 |de "....|!...!...|
|00001860| ca 5c 22 86 1c 00 c9 08 | cb 5c 22 86 1c 00 c9 08 |.\".....|.\".....|
|00001870| cc 5c 22 85 21 00 cd 8b | 88 ce 08 21 86 2d 00 cf |.\".!...|...!.-..|
|00001880| 08 21 89 10 88 d0 d1 08 | 21 0d 41 5c 22 41 1c 0c |.!......|!.A\"A..|
|00001890| 83 41 00 d2 0c 21 82 43 | 00 d3 20 29 29 87 22 20 |.A...!.C|.. ))." |
|000018a0| 5b 63 68 61 72 20 6e 69 | 6c 20 63 75 72 73 6f 72 |[char ni|l cursor|
|000018b0| 2d 69 6e 2d 65 63 68 6f | 2d 61 72 65 61 20 74 20 |-in-echo|-area t |
|000018c0| 64 65 66 6e 20 68 65 6c | 70 2d 6d 61 70 20 6d 65 |defn hel|p-map me|
|000018d0| 73 73 61 67 65 20 22 41 | 20 42 20 43 20 46 20 49 |ssage "A| B C F I|
|000018e0| 20 4b 20 4c 20 4d 20 4e | 20 53 20 54 20 56 20 57 | K L M N| S T V W|
|000018f0| 20 43 2d 63 20 43 2d 64 | 20 43 2d 6e 20 43 2d 77 | C-c C-d| C-n C-w|
|00001900| 2e 20 20 54 79 70 65 20 | 48 45 4c 50 20 61 67 61 |.  Type |HELP aga|
|00001910| 69 6e 20 66 6f 72 20 6d | 6f 72 65 20 68 65 6c 70 |in for m|ore help|
|00001920| 3a 20 22 20 72 65 61 64 | 2d 6b 65 79 2d 73 65 71 |: " read|-key-seq|
|00001930| 75 65 6e 63 65 20 73 74 | 72 69 6e 67 2d 65 71 75 |uence st|ring-equ|
|00001940| 61 6c 20 22 08 22 20 22 | 3f 22 20 22 1b 23 62 22 |al "." "|?" ".#b"|
|00001950| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 c4 | ((byte-|code "..|
|00001960| 21 88 c5 20 88 c6 c7 21 | 63 88 65 62 88 c8 89 10 |!.. ...!|c.eb....|
|00001970| 88 08 c9 3e 85 44 00 08 | ca 3e 85 21 00 cb 20 88 |...>.D..|.>.!.. .|
|00001980| 08 cc 3e 85 2a 00 cd 20 | 88 ce cf d0 64 21 83 37 |..>.*.. |....d!.7|
|00001990| 00 d1 82 38 00 d2 5c 22 | 88 c2 19 72 89 10 29 88 |...8..\"|...r..).|
|000019a0| 82 13 00 87 22 20 5b 63 | 68 61 72 20 63 75 72 73 |...." [c|har curs|
|000019b0| 6f 72 2d 69 6e 2d 65 63 | 68 6f 2d 61 72 65 61 20 |or-in-ec|ho-area |
|000019c0| 74 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |t switch|-to-buff|
|000019d0| 65 72 20 22 2a 48 65 6c | 70 2a 22 20 65 72 61 73 |er "*Hel|p*" eras|
|000019e0| 65 2d 62 75 66 66 65 72 | 20 6d 79 2d 64 6f 63 75 |e-buffer| my-docu|
|000019f0| 6d 65 6e 74 61 74 69 6f | 6e 20 68 65 6c 70 2d 66 |mentatio|n help-f|
|00001a00| 6f 72 2d 68 65 6c 70 20 | 38 20 28 38 20 36 33 20 |or-help |8 (8 63 |
|00001a10| 32 32 20 33 32 20 31 32 | 37 20 32 34 36 29 20 28 |22 32 12|7 246) (|
|00001a20| 32 32 20 33 32 29 20 73 | 63 72 6f 6c 6c 2d 75 70 |22 32) s|croll-up|
|00001a30| 20 28 31 32 37 20 32 34 | 36 29 20 73 63 72 6f 6c | (127 24|6) scrol|
|00001a40| 6c 2d 64 6f 77 6e 20 6d | 65 73 73 61 67 65 20 22 |l-down m|essage "|
|00001a50| 41 20 42 20 43 20 46 20 | 49 20 4b 20 4c 20 4d 20 |A B C F |I K L M |
|00001a60| 4e 20 53 20 54 20 56 20 | 57 20 43 2d 63 20 43 2d |N S T V |W C-c C-|
|00001a70| 64 20 43 2d 6e 20 43 2d | 77 25 73 3a 20 22 20 70 |d C-n C-|w%s: " p|
|00001a80| 6f 73 2d 76 69 73 69 62 | 6c 65 2d 69 6e 2d 77 69 |os-visib|le-in-wi|
|00001a90| 6e 64 6f 77 2d 70 20 22 | 22 20 22 20 6f 72 20 53 |ndow-p "|" " or S|
|00001aa0| 70 61 63 65 20 74 6f 20 | 73 63 72 6f 6c 6c 22 5d |pace to |scroll"]|
|00001ab0| 20 31 30 29 29 20 69 6e | 74 65 67 65 72 70 20 73 | 10)) in|tegerp s|
|00001ac0| 74 72 69 6e 67 2d 74 6f | 2d 63 68 61 72 20 61 73 |tring-to|-char as|
|00001ad0| 73 71 20 64 6f 77 6e 63 | 61 73 65 20 63 61 6c 6c |sq downc|ase call|
|00001ae0| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 20 64 |-interac|tively d|
|00001af0| 69 6e 67 5d 20 31 32 29 | 29 0a 0a 28 64 65 66 75 |ing] 12)|)..(defu|
|00001b00| 6e 20 64 65 73 63 72 69 | 62 65 2d 6b 65 79 20 28 |n descri|be-key (|
|00001b10| 6b 65 79 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |key) (in|teractiv|
|00001b20| 65 20 22 6b 44 65 73 63 | 72 69 62 65 20 6b 65 79 |e "kDesc|ribe key|
|00001b30| 3a 20 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |: ") (by|te-code |
|00001b40| 22 c3 88 c4 09 21 c3 1a | 18 08 3f 86 10 00 c5 08 |"....!..|..?.....|
|00001b50| 21 83 1c 00 c6 c7 c8 09 | 21 5c 22 82 3b 00 c9 90 |!.......|!\".;...|
|00001b60| ca 08 21 88 cb cc 21 88 | cd 08 21 89 12 83 34 00 |..!...!.|..!...4.|
|00001b70| cb 0a 21 82 37 00 cb ce | 21 88 cf 20 91 2a 87 22 |..!.7...|!.. .*."|
|00001b80| 20 5b 64 65 66 6e 20 6b | 65 79 20 64 6f 63 75 20 | [defn k|ey docu |
|00001b90| 6e 69 6c 20 6b 65 79 2d | 62 69 6e 64 69 6e 67 20 |nil key-|binding |
|00001ba0| 69 6e 74 65 67 65 72 70 | 20 6d 65 73 73 61 67 65 |integerp| message|
|00001bb0| 20 22 25 73 20 69 73 20 | 75 6e 64 65 66 69 6e 65 | "%s is |undefine|
|00001bc0| 64 22 20 6b 65 79 2d 64 | 65 73 63 72 69 70 74 69 |d" key-d|escripti|
|00001bd0| 6f 6e 20 22 2a 48 65 6c | 70 2a 22 20 70 72 69 6e |on "*Hel|p*" prin|
|00001be0| 31 20 70 72 69 6e 63 20 | 22 3a 0a 22 20 6d 79 2d |1 princ |":." my-|
|00001bf0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 22 6e |document|ation "n|
|00001c00| 6f 74 20 64 6f 63 75 6d | 65 6e 74 65 64 22 20 70 |ot docum|ented" p|
|00001c10| 72 69 6e 74 2d 68 65 6c | 70 2d 72 65 74 75 72 6e |rint-hel|p-return|
|00001c20| 2d 6d 65 73 73 61 67 65 | 5d 20 31 32 29 29 0a 0a |-message|] 12))..|
|00001c30| 28 64 65 66 75 6e 20 63 | 6f 6d 6d 61 6e 64 2d 61 |(defun c|ommand-a|
|00001c40| 70 72 6f 70 6f 73 20 28 | 73 74 72 69 6e 67 29 20 |propos (|string) |
|00001c50| 22 5c 0a 4c 69 6b 65 20 | 61 70 72 6f 70 6f 73 20 |"\.Like |apropos |
|00001c60| 62 75 74 20 6c 69 73 74 | 73 20 6f 6e 6c 79 20 73 |but list|s only s|
|00001c70| 79 6d 62 6f 6c 73 20 74 | 68 61 74 20 61 72 65 20 |ymbols t|hat are |
|00001c80| 6e 61 6d 65 73 20 6f 66 | 20 63 6f 6d 6d 61 6e 64 |names of| command|
|00001c90| 73 0a 28 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |s.(inter|actively|
|00001ca0| 20 63 61 6c 6c 61 62 6c | 65 20 66 75 6e 63 74 69 | callabl|e functi|
|00001cb0| 6f 6e 73 29 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ons)." (|interact|
|00001cc0| 69 76 65 20 22 73 43 6f | 6d 6d 61 6e 64 20 61 70 |ive "sCo|mmand ap|
|00001cd0| 72 6f 70 6f 73 20 28 72 | 65 67 65 78 70 29 3a 20 |ropos (r|egexp): |
|00001ce0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |") (byte|-code ".|
|00001cf0| 88 c6 c7 21 19 c8 c9 21 | 29 18 0a 3f 85 1f 00 c3 |...!...!|)..?....|
|00001d00| 89 12 88 c0 ca 21 88 cb | cc 21 88 c0 cd 21 88 ce |.....!..|.!...!..|
|00001d10| 0c cf 5c 22 88 8a c7 71 | 88 65 62 88 d0 d1 d2 5c |..\"...q|.eb....\|
|00001d20| 22 88 65 62 29 88 08 85 | 3c 00 c0 08 21 29 87 22 |".eb)...|<...!)."|
|00001d30| 20 5b 6d 65 73 73 61 67 | 65 20 73 74 61 6e 64 61 | [messag|e standa|
|00001d40| 72 64 2d 6f 75 74 70 75 | 74 20 64 6f 63 2d 72 65 |rd-outpu|t doc-re|
|00001d50| 61 64 20 74 20 73 74 72 | 69 6e 67 20 6e 69 6c 20 |ad t str|ing nil |
|00001d60| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001d70| 65 20 22 2a 48 65 6c 70 | 2a 22 20 70 72 69 6e 74 |e "*Help|*" print|
|00001d80| 2d 68 65 6c 70 2d 72 65 | 74 75 72 6e 2d 6d 65 73 |-help-re|turn-mes|
|00001d90| 73 61 67 65 20 69 64 65 | 6e 74 69 74 79 20 22 52 |sage ide|ntity "R|
|00001da0| 65 61 64 69 6e 67 20 44 | 4f 43 20 2e 2e 2e 22 20 |eading D|OC ..." |
|00001db0| 53 6e 61 72 66 2d 64 6f | 63 75 6d 65 6e 74 61 74 |Snarf-do|cumentat|
|00001dc0| 69 6f 6e 20 22 44 4f 43 | 22 20 22 52 65 61 64 69 |ion "DOC|" "Readi|
|00001dd0| 6e 67 20 44 4f 43 20 2e | 2e 2e 20 44 6f 6e 65 2e |ng DOC .|.. Done.|
|00001de0| 22 20 61 70 72 6f 70 6f | 73 20 63 6f 6d 6d 61 6e |" apropo|s comman|
|00001df0| 64 70 20 72 65 70 6c 61 | 63 65 2d 73 74 72 69 6e |dp repla|ce-strin|
|00001e00| 67 20 22 56 61 72 69 61 | 62 6c 65 3a 20 22 20 22 |g "Varia|ble: " "|
|00001e10| 22 5d 20 39 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |"] 9))..|(defun d|
|00001e20| 65 73 63 72 69 62 65 2d | 76 61 72 69 61 62 6c 65 |escribe-|variable|
|00001e30| 20 28 76 61 72 69 61 62 | 6c 65 29 20 22 5c 0a 44 | (variab|le) "\.D|
|00001e40| 69 73 70 6c 61 79 20 74 | 68 65 20 66 75 6c 6c 20 |isplay t|he full |
|00001e50| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |document|ation of|
|00001e60| 20 56 41 52 49 41 42 4c | 45 20 28 61 20 73 79 6d | VARIABL|E (a sym|
|00001e70| 62 6f 6c 29 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |bol)." (|interact|
|00001e80| 69 76 65 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ive (byt|e-code "|
|00001e90| c5 20 c2 c6 1b 19 18 c7 | 08 83 13 00 c8 c9 08 5c |. ......|.......\|
|00001ea0| 22 82 14 00 ca 0c cb c2 | 24 89 13 88 cc 0b cd 5c |".......|$......\|
|00001eb0| 22 83 26 00 08 82 29 00 | ce 0b 21 43 2b 87 22 20 |".&...).|..!C+." |
|00001ec0| 5b 76 20 65 6e 61 62 6c | 65 2d 72 65 63 75 72 73 |[v enabl|e-recurs|
|00001ed0| 69 76 65 2d 6d 69 6e 69 | 62 75 66 66 65 72 73 20 |ive-mini|buffers |
|00001ee0| 74 20 76 61 6c 20 6f 62 | 61 72 72 61 79 20 76 61 |t val ob|array va|
|00001ef0| 72 69 61 62 6c 65 2d 61 | 74 2d 70 6f 69 6e 74 20 |riable-a|t-point |
|00001f00| 6e 69 6c 20 63 6f 6d 70 | 6c 65 74 69 6e 67 2d 72 |nil comp|leting-r|
|00001f10| 65 61 64 20 66 6f 72 6d | 61 74 20 22 44 65 73 63 |ead form|at "Desc|
|00001f20| 72 69 62 65 20 76 61 72 | 69 61 62 6c 65 20 28 64 |ribe var|iable (d|
|00001f30| 65 66 61 75 6c 74 20 25 | 73 29 3a 20 22 20 22 44 |efault %|s): " "D|
|00001f40| 65 73 63 72 69 62 65 20 | 76 61 72 69 61 62 6c 65 |escribe |variable|
|00001f50| 3a 20 22 20 62 6f 75 6e | 64 70 20 65 71 75 61 6c |: " boun|dp equal|
|00001f60| 20 22 22 20 69 6e 74 65 | 72 6e 5d 20 37 29 29 20 | "" inte|rn] 7)) |
|00001f70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c7 88 c8 90 |(byte-co|de "....|
|00001f80| c9 0d 21 88 ca cb 21 88 | cc 0d 21 3f 83 19 00 ca |..!...!.|..!?....|
|00001f90| cd 21 82 1d 00 c9 0d 4a | 21 88 ce 20 88 ce 20 88 |.!.....J|!.. .. .|
|00001fa0| ca cf 21 88 ce 20 88 d0 | 0d c2 5c 22 1e 06 0e 06 |..!.. ..|..\"....|
|00001fb0| 83 3f 00 ca d1 0e 06 21 | 21 82 42 00 ca d2 21 29 |.?.....!|!.B...!)|
|00001fc0| 88 d3 20 91 87 22 20 5b | 76 20 65 6e 61 62 6c 65 |.. .." [|v enable|
|00001fd0| 2d 72 65 63 75 72 73 69 | 76 65 2d 6d 69 6e 69 62 |-recursi|ve-minib|
|00001fe0| 75 66 66 65 72 73 20 74 | 20 76 61 6c 20 6f 62 61 |uffers t| val oba|
|00001ff0| 72 72 61 79 20 76 61 72 | 69 61 62 6c 65 20 64 6f |rray var|iable do|
|00002000| 63 20 6e 69 6c 20 22 2a | 48 65 6c 70 2a 22 20 70 |c nil "*|Help*" p|
|00002010| 72 69 6e 31 20 70 72 69 | 6e 63 20 22 27 73 20 76 |rin1 pri|nc "'s v|
|00002020| 61 6c 75 65 20 69 73 20 | 22 20 62 6f 75 6e 64 70 |alue is |" boundp|
|00002030| 20 22 76 6f 69 64 2e 22 | 20 74 65 72 70 72 69 20 | "void."| terpri |
|00002040| 22 44 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 3a 22 |"Documen|tation:"|
|00002050| 20 6d 79 2d 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f | my-docu|mentatio|
|00002060| 6e 20 73 75 62 73 74 69 | 74 75 74 65 2d 63 6f 6d |n substi|tute-com|
|00002070| 6d 61 6e 64 2d 6b 65 79 | 73 20 22 6e 6f 74 20 64 |mand-key|s "not d|
|00002080| 6f 63 75 6d 65 6e 74 65 | 64 20 61 73 20 61 20 76 |ocumente|d as a v|
|00002090| 61 72 69 61 62 6c 65 2e | 22 20 70 72 69 6e 74 2d |ariable.|" print-|
|000020a0| 68 65 6c 70 2d 72 65 74 | 75 72 6e 2d 6d 65 73 73 |help-ret|urn-mess|
|000020b0| 61 67 65 5d 20 31 36 29 | 29 0a 0a 28 73 65 74 71 |age] 16)|)..(setq|
|000020c0| 20 73 65 61 72 63 68 2d | 73 6c 6f 77 2d 77 69 6e | search-|slow-win|
|000020d0| 64 6f 77 2d 6c 69 6e 65 | 73 20 32 33 29 0a       |dow-line|s 23).  |
+--------+-------------------------+-------------------------+--------+--------+